program Whileinstr;
var
	a:integer;
begin
	a:=0;
	while (a<10) do begin
		writeln(a);
		a:=a+1;
	end;
end.
